home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tc.d64 / odin.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  33 lines
  1. 10 REM              ODIN
  2. 11 REM
  3. 12 REM          FRANK LINDSEY
  4. 13 REM          RT. 14 BOX 74
  5. 14 REM          BOWLING GREEN
  6. 15 REM          KENTUCKY, USA
  7. 16 REM          (502)781-3117
  8. 17 REM
  9. 18 REM LET'S HEAR IT FOR FREE SOFTWARE!
  10. 19 REM
  11. 20 REM LET'S ALSO HEAR IT FOR MAKING A
  12. 21 REM BUCK. WATCH FOR MY OTHER COMMER-
  13. 22 REM CIALLY AVAILABLE PROGRAMS.
  14. 23 REM
  15. 100 POKE53280,3:POKE53281,6
  16. 110 PRINT"[147][152][142] [169]  [223][146]    [223][146]     [146]   [223][146]   [146]"
  17. 120 PRINT"  [146]   [146]   [146]  [223][146]   [146]     [223][146]  [146]"
  18. 130 PRINT"  [146]   [146]   [146]   [146]   [146]    [146][223] [223] [146] "
  19. 140 PRINT"  [146]   [146]   [146]  [169]   [146]    [146] [223]  [146] "
  20. 150 PRINT" [223]  [146][169]    [146][169]     [146]   [146]  [223] [146] "
  21. 160 PRINT"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  22. 170 PRINT"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  23. 180 PRINT"     SHOOT OBSTACLES WHILE AVOIDING
  24. 181 [153]"        COLLISIONS OR BEING SHOT
  25. 182 PRINT"        PAUSE WITH THE SHIFT KEY
  26. 183 [153]"        *PRESS ANY KEY TO START*
  27. 200 M=0:N=20:MC=0:NC=0
  28. 210 M=M+1:IFM>39THENM=0:MC=MC+1:IFMC>15THENMC=0
  29. 220 N=N+1:IFN>39THENN=0:NC=NC+1:IFNC>15THENNC=0
  30. 230 POKE55336+M,MC:POKE55656+N,NC
  31. 240 GETA$:IFA$=""THEN210
  32. 250 SYS3122
  33.